## Reading layer `camp_fire_buffer' from data source 
##   `/Users/josiezenger/Local/Dissertation/NTL_Wildfire_Recovery/camp_fire_buffer/camp_fire_buffer.shp' 
##   using driver `ESRI Shapefile'
## Simple feature collection with 1 feature and 1 field
## Geometry type: POLYGON
## Dimension:     XY
## Bounding box:  xmin: -13566250 ymin: 4797781 xmax: -13498910 ymax: 4861104
## Projected CRS: WGS 84 / Pseudo-Mercator
## Reading layer `camp_fire' from data source 
##   `/Users/josiezenger/Local/Dissertation/NTL_Wildfire_Recovery/camp_sf/camp_fire.shp' 
##   using driver `ESRI Shapefile'
## Simple feature collection with 1 feature and 21 fields
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: -13556250 ymin: 4807780 xmax: -13508910 ymax: 4851104
## Projected CRS: WGS 84 / Pseudo-Mercator
# Load raster file paths
camp_outputs <- list.files("~/Local/Dissertation/CampFire_TIFFs", full.names = TRUE)
new_outputs <- list.files("~/Local/Dissertation/NTL_Wildfire_Recovery/CampFire_2_TIFFs", full.names = TRUE)
cbuff_outputs <- list.files("~/Local/Dissertation/CBuff_tiffs", full.names = TRUE)
cb.new_outputs <- list.files("~/Local/Dissertation/NTL_Wildfire_Recovery/CBuff_2_tiffs", full.names = TRUE)

# Load CSVs
camp_csv <- read.csv("~/Local/Dissertation/NTL_Wildfire_Recovery/Camp_DailyMeanLuminosity.csv")
cbuff_csv <- read.csv("~/Local/Dissertation/NTL_Wildfire_Recovery/CBuff_DailyMeanLuminosity.csv")

# Load and aggregate rasters
load_rasters <- function(file_paths, prefix_to_remove) {
  rasters <- lapply(file_paths, function(path) {
    r <- rast(path)
    aggregate(r, fact = 3, fun = mean, na.rm = TRUE)  # aggregate pixels
  })
  names(rasters) <- tools::file_path_sans_ext(basename(file_paths))
  names(rasters) <- gsub(prefix_to_remove, "", names(rasters))
  rasters
}

# Combine the additional years of data that I extracted (this is not a necessary step in most cases)
camp_data <- load_rasters(c(camp_outputs, new_outputs), "Camp_")
cbuff_data <- load_rasters(c(cbuff_outputs, cb.new_outputs), "CBuff_")

# Extract and align dates
get_week_df <- function(raster_list) {
  tibble(
    name = names(raster_list),
    date = as.Date(names(raster_list)),
    week = floor_date(as.Date(names(raster_list)), unit = "week", week_start = 1)
  )
}
camp_weeks_df <- get_week_df(camp_data)
cbuff_weeks_df <- get_week_df(cbuff_data)

# Composite rasters by week
composite_by_week <- function(week_df, raster_list) {
  week_df %>%
    group_by(week) %>%
    group_split() %>%
    setNames(map_chr(., ~ as.character(unique(.$week)))) %>%
    map(~ {
      rasters_to_stack <- lapply(.$name, function(n) raster_list[[n]])
      composite <- app(rast(rasters_to_stack), fun = mean, na.rm = TRUE)
      composite
    })
}

camp_weekly_rasters <- composite_by_week(camp_weeks_df, camp_data)
cbuff_weekly_rasters <- composite_by_week(cbuff_weeks_df, cbuff_data)

# Convert to list with metadata
combine_data <- function(raster_list, unit_label) {
  lapply(names(raster_list), function(name) {
    list(
      raster = raster_list[[name]],
      date = as.Date(name),
      unit_type = unit_label
    )
  }) %>% setNames(names(raster_list))
}

c.combined_data <- combine_data(camp_weekly_rasters, "Treatment")
cb.combined_data <- combine_data(cbuff_weekly_rasters, "Control")

# Combine both treatment and control rasters
total_combined_data <- c(c.combined_data, cb.combined_data)
##            Length Class  Mode
## 2019-11-09 2      -none- list
## 2019-11-11 2      -none- list
## 2019-11-12 2      -none- list
## 2019-11-13 2      -none- list
## 2019-11-14 2      -none- list
## 2019-11-15 2      -none- list
## 2019-11-16 2      -none- list
## 2019-11-17 2      -none- list
## 2019-11-18 2      -none- list
## 2019-11-19 2      -none- list
## 2019-11-20 2      -none- list
## 2019-11-21 2      -none- list
## 2019-11-22 2      -none- list
## 2019-11-23 2      -none- list
## 2019-11-24 2      -none- list
## 2019-11-25 2      -none- list
## 2019-11-26 2      -none- list
## 2019-11-27 2      -none- list
## 2019-11-28 2      -none- list
## 2019-11-29 2      -none- list
## 2019-11-30 2      -none- list
## 2019-12-01 2      -none- list
## 2019-12-02 2      -none- list
## 2019-12-03 2      -none- list
## 2019-12-04 2      -none- list
## 2019-12-05 2      -none- list
## 2019-12-06 2      -none- list
## 2019-12-07 2      -none- list
## 2019-12-08 2      -none- list
## 2019-12-09 2      -none- list
## 2019-12-10 2      -none- list
## 2019-12-11 2      -none- list
## 2019-12-12 2      -none- list
## 2019-12-13 2      -none- list
## 2019-12-14 2      -none- list
## 2019-12-15 2      -none- list
## 2019-12-16 2      -none- list
## 2019-12-17 2      -none- list
## 2019-12-18 2      -none- list
## 2019-12-19 2      -none- list
## 2019-12-20 2      -none- list
## 2019-12-21 2      -none- list
## 2019-12-22 2      -none- list
## 2019-12-23 2      -none- list
## 2019-12-24 2      -none- list
## 2019-12-25 2      -none- list
## 2019-12-26 2      -none- list
## 2019-12-27 2      -none- list
## 2019-12-28 2      -none- list
## 2019-12-29 2      -none- list
## 2019-12-30 2      -none- list
## 2019-12-31 2      -none- list
## 2020-01-01 2      -none- list
## 2020-01-02 2      -none- list
## 2020-01-03 2      -none- list
## 2020-01-04 2      -none- list
## 2020-01-05 2      -none- list
## 2020-01-06 2      -none- list
## 2020-01-07 2      -none- list
## 2020-01-08 2      -none- list
## 2020-01-09 2      -none- list
## 2020-01-10 2      -none- list
## 2020-01-11 2      -none- list
## 2020-01-12 2      -none- list
## 2020-01-13 2      -none- list
## 2020-01-14 2      -none- list
## 2020-01-15 2      -none- list
## 2020-01-16 2      -none- list
## 2020-01-17 2      -none- list
## 2020-01-18 2      -none- list
## 2020-01-19 2      -none- list
## 2020-01-20 2      -none- list
## 2020-01-21 2      -none- list
## 2020-01-22 2      -none- list
## 2020-01-23 2      -none- list
## 2020-01-24 2      -none- list
## 2020-01-25 2      -none- list
## 2020-01-26 2      -none- list
## 2020-01-27 2      -none- list
## 2020-01-28 2      -none- list
## 2020-01-29 2      -none- list
## 2020-01-30 2      -none- list
## 2020-01-31 2      -none- list
## 2020-02-01 2      -none- list
## 2020-02-02 2      -none- list
## 2020-02-03 2      -none- list
## 2020-02-04 2      -none- list
## 2020-02-05 2      -none- list
## 2020-02-06 2      -none- list
## 2020-02-07 2      -none- list
## 2020-02-08 2      -none- list
## 2020-02-09 2      -none- list
## 2020-02-10 2      -none- list
## 2020-02-11 2      -none- list
## 2020-02-12 2      -none- list
## 2020-02-13 2      -none- list
## 2020-02-14 2      -none- list
## 2020-02-15 2      -none- list
## 2020-02-16 2      -none- list
## 2020-02-17 2      -none- list
## 2020-02-18 2      -none- list
## 2020-02-19 2      -none- list
## 2020-02-20 2      -none- list
## 2020-02-21 2      -none- list
## 2020-02-22 2      -none- list
## 2020-02-23 2      -none- list
## 2020-02-24 2      -none- list
## 2020-02-25 2      -none- list
## 2020-02-26 2      -none- list
## 2020-02-27 2      -none- list
## 2020-02-28 2      -none- list
## 2020-02-29 2      -none- list
## 2020-03-01 2      -none- list
## 2020-03-02 2      -none- list
## 2020-03-03 2      -none- list
## 2020-03-04 2      -none- list
## 2020-03-05 2      -none- list
## 2020-03-06 2      -none- list
## 2020-03-07 2      -none- list
## 2020-03-08 2      -none- list
## 2020-03-09 2      -none- list
## 2020-03-10 2      -none- list
## 2020-03-11 2      -none- list
## 2020-03-12 2      -none- list
## 2020-03-13 2      -none- list
## 2020-03-14 2      -none- list
## 2020-03-15 2      -none- list
## 2020-03-16 2      -none- list
## 2020-03-17 2      -none- list
## 2020-03-18 2      -none- list
## 2020-03-19 2      -none- list
## 2020-03-20 2      -none- list
## 2020-03-21 2      -none- list
## 2020-03-22 2      -none- list
## 2020-03-23 2      -none- list
## 2020-03-24 2      -none- list
## 2020-03-25 2      -none- list
## 2020-03-26 2      -none- list
## 2020-03-27 2      -none- list
## 2020-03-28 2      -none- list
## 2020-03-29 2      -none- list
## 2020-03-30 2      -none- list
## 2020-03-31 2      -none- list
## 2020-04-01 2      -none- list
## 2020-04-02 2      -none- list
## 2020-04-03 2      -none- list
## 2020-04-04 2      -none- list
## 2020-04-05 2      -none- list
## 2020-04-06 2      -none- list
## 2020-04-07 2      -none- list
## 2020-04-08 2      -none- list
## 2020-04-09 2      -none- list
## 2020-04-10 2      -none- list
## 2020-04-11 2      -none- list
## 2020-04-12 2      -none- list
## 2020-04-13 2      -none- list
## 2020-04-14 2      -none- list
## 2020-04-15 2      -none- list
## 2020-04-16 2      -none- list
## 2020-04-17 2      -none- list
## 2020-04-18 2      -none- list
## 2020-04-19 2      -none- list
## 2020-04-20 2      -none- list
## 2020-04-21 2      -none- list
## 2020-04-22 2      -none- list
## 2020-04-23 2      -none- list
## 2020-04-24 2      -none- list
## 2020-04-25 2      -none- list
## 2020-04-26 2      -none- list
## 2020-04-27 2      -none- list
## 2020-04-28 2      -none- list
## 2020-04-29 2      -none- list
## 2020-04-30 2      -none- list
## 2020-05-01 2      -none- list
## 2020-05-02 2      -none- list
## 2020-05-03 2      -none- list
## 2020-05-04 2      -none- list
## 2020-05-05 2      -none- list
## 2020-05-06 2      -none- list
## 2020-05-07 2      -none- list
## 2020-05-08 2      -none- list
## 2020-05-09 2      -none- list
## 2020-05-10 2      -none- list
## 2020-05-11 2      -none- list
## 2020-05-12 2      -none- list
## 2020-05-13 2      -none- list
## 2020-05-14 2      -none- list
## 2020-05-15 2      -none- list
## 2020-05-16 2      -none- list
## 2020-05-17 2      -none- list
## 2020-05-18 2      -none- list
## 2020-05-19 2      -none- list
## 2020-05-20 2      -none- list
## 2020-05-21 2      -none- list
## 2020-05-22 2      -none- list
## 2020-05-23 2      -none- list
## 2020-05-24 2      -none- list
## 2020-05-25 2      -none- list
## 2020-05-26 2      -none- list
## 2020-05-27 2      -none- list
## 2020-05-28 2      -none- list
## 2020-05-29 2      -none- list
## 2020-05-30 2      -none- list
## 2020-05-31 2      -none- list
## 2020-06-01 2      -none- list
## 2020-06-02 2      -none- list
## 2020-06-03 2      -none- list
## 2020-06-04 2      -none- list
## 2020-06-05 2      -none- list
## 2020-06-06 2      -none- list
## 2020-06-07 2      -none- list
## 2020-06-08 2      -none- list
## 2020-06-09 2      -none- list
## 2020-06-10 2      -none- list
## 2020-06-11 2      -none- list
## 2020-06-12 2      -none- list
## 2020-06-13 2      -none- list
## 2020-06-14 2      -none- list
## 2020-06-15 2      -none- list
## 2020-06-16 2      -none- list
## 2020-06-17 2      -none- list
## 2020-06-18 2      -none- list
## 2020-06-19 2      -none- list
## 2020-06-20 2      -none- list
## 2020-06-21 2      -none- list
## 2020-06-22 2      -none- list
## 2020-06-23 2      -none- list
## 2020-06-24 2      -none- list
## 2020-06-25 2      -none- list
## 2020-06-26 2      -none- list
## 2020-06-27 2      -none- list
## 2020-06-28 2      -none- list
## 2020-06-29 2      -none- list
## 2020-06-30 2      -none- list
## 2020-07-01 2      -none- list
## 2020-07-02 2      -none- list
## 2020-07-03 2      -none- list
## 2020-07-04 2      -none- list
## 2020-07-05 2      -none- list
## 2020-07-06 2      -none- list
## 2020-07-07 2      -none- list
## 2020-07-08 2      -none- list
## 2020-07-09 2      -none- list
## 2020-07-10 2      -none- list
## 2020-07-11 2      -none- list
## 2020-07-12 2      -none- list
## 2020-07-13 2      -none- list
## 2020-07-14 2      -none- list
## 2020-07-15 2      -none- list
## 2020-07-16 2      -none- list
## 2020-07-17 2      -none- list
## 2020-07-18 2      -none- list
## 2020-07-19 2      -none- list
## 2020-07-20 2      -none- list
## 2020-07-21 2      -none- list
## 2020-07-22 2      -none- list
## 2020-07-23 2      -none- list
## 2020-07-24 2      -none- list
## 2020-07-25 2      -none- list
## 2020-07-26 2      -none- list
## 2020-07-27 2      -none- list
## 2020-07-28 2      -none- list
## 2020-07-29 2      -none- list
## 2020-07-30 2      -none- list
## 2020-07-31 2      -none- list
## 2020-08-01 2      -none- list
## 2020-08-02 2      -none- list
## 2020-08-03 2      -none- list
## 2020-08-04 2      -none- list
## 2020-08-05 2      -none- list
## 2020-08-06 2      -none- list
## 2020-08-07 2      -none- list
## 2020-08-08 2      -none- list
## 2020-08-09 2      -none- list
## 2020-08-10 2      -none- list
## 2020-08-11 2      -none- list
## 2020-08-12 2      -none- list
## 2020-08-13 2      -none- list
## 2020-08-14 2      -none- list
## 2020-08-15 2      -none- list
## 2020-08-16 2      -none- list
## 2020-08-17 2      -none- list
## 2020-08-18 2      -none- list
## 2020-08-19 2      -none- list
## 2020-08-20 2      -none- list
## 2020-08-21 2      -none- list
## 2020-08-22 2      -none- list
## 2020-08-23 2      -none- list
## 2020-08-24 2      -none- list
## 2020-08-25 2      -none- list
## 2020-08-26 2      -none- list
## 2020-08-27 2      -none- list
## 2020-08-28 2      -none- list
## 2020-08-29 2      -none- list
## 2020-08-30 2      -none- list
## 2020-08-31 2      -none- list
## 2020-09-01 2      -none- list
## 2020-09-02 2      -none- list
## 2020-09-03 2      -none- list
## 2020-09-04 2      -none- list
## 2020-09-05 2      -none- list
## 2020-09-06 2      -none- list
## 2020-09-07 2      -none- list
## 2020-09-08 2      -none- list
## 2020-09-09 2      -none- list
## 2020-09-10 2      -none- list
## 2020-09-11 2      -none- list
## 2020-09-12 2      -none- list
## 2020-09-13 2      -none- list
## 2020-09-14 2      -none- list
## 2020-09-15 2      -none- list
## 2020-09-16 2      -none- list
## 2020-09-17 2      -none- list
## 2020-09-18 2      -none- list
## 2020-09-19 2      -none- list
## 2020-09-20 2      -none- list
## 2020-09-21 2      -none- list
## 2020-09-22 2      -none- list
## 2020-09-23 2      -none- list
## 2020-09-24 2      -none- list
## 2020-09-25 2      -none- list
## 2020-09-26 2      -none- list
## 2020-09-27 2      -none- list
## 2020-09-28 2      -none- list
## 2020-09-29 2      -none- list
## 2020-09-30 2      -none- list
## 2020-10-01 2      -none- list
## 2020-10-02 2      -none- list
## 2020-10-03 2      -none- list
## 2020-10-04 2      -none- list
## 2020-10-05 2      -none- list
## 2020-10-06 2      -none- list
## 2020-10-07 2      -none- list
## 2020-10-08 2      -none- list
## 2020-10-09 2      -none- list
## 2020-10-10 2      -none- list
## 2020-10-11 2      -none- list
## 2020-10-12 2      -none- list
## 2020-10-13 2      -none- list
## 2020-10-14 2      -none- list
## 2020-10-15 2      -none- list
## 2020-10-16 2      -none- list
## 2020-10-17 2      -none- list
## 2020-10-18 2      -none- list
## 2020-10-19 2      -none- list
## 2020-10-20 2      -none- list
## 2020-10-21 2      -none- list
## 2020-10-22 2      -none- list
## 2020-10-23 2      -none- list
## 2020-10-24 2      -none- list
## 2020-10-25 2      -none- list
## 2020-10-26 2      -none- list
## 2020-10-27 2      -none- list
## 2020-10-28 2      -none- list
## 2020-10-29 2      -none- list
## 2020-10-30 2      -none- list
## 2020-10-31 2      -none- list
## 2020-11-01 2      -none- list
## 2020-11-02 2      -none- list
## 2020-11-03 2      -none- list
## 2020-11-04 2      -none- list
## 2020-11-05 2      -none- list
## 2020-11-06 2      -none- list
## 2020-11-07 2      -none- list
## 2020-11-08 2      -none- list
## 2020-11-09 2      -none- list
## 2020-11-10 2      -none- list
## 2020-11-11 2      -none- list
## 2020-11-12 2      -none- list
## 2020-11-13 2      -none- list
## 2020-11-14 2      -none- list
## 2020-11-15 2      -none- list
## 2020-11-16 2      -none- list
## 2020-11-17 2      -none- list
## 2020-11-18 2      -none- list
## 2020-11-19 2      -none- list
## 2020-11-20 2      -none- list
## 2020-11-21 2      -none- list
## 2020-11-22 2      -none- list
## 2020-11-23 2      -none- list
## 2020-11-24 2      -none- list
## 2020-11-25 2      -none- list
## 2020-11-26 2      -none- list
## 2020-11-27 2      -none- list
## 2020-11-28 2      -none- list
## 2020-11-29 2      -none- list

##            Length Class  Mode
## 2018-05-01 2      -none- list
## 2018-05-02 2      -none- list
## 2018-05-03 2      -none- list
## 2018-05-04 2      -none- list
## 2018-05-05 2      -none- list
## 2018-05-06 2      -none- list
## 2018-05-07 2      -none- list
## 2018-05-08 2      -none- list
## 2018-05-09 2      -none- list
## 2018-05-10 2      -none- list
## 2018-05-11 2      -none- list
## 2018-05-12 2      -none- list
## 2018-05-13 2      -none- list
## 2018-05-14 2      -none- list
## 2018-05-15 2      -none- list
## 2018-05-16 2      -none- list
## 2018-05-17 2      -none- list
## 2018-05-18 2      -none- list
## 2018-05-19 2      -none- list
## 2018-05-20 2      -none- list
## 2018-05-21 2      -none- list
## 2018-05-22 2      -none- list
## 2018-05-23 2      -none- list
## 2018-05-24 2      -none- list
## 2018-05-25 2      -none- list
## 2018-05-26 2      -none- list
## 2018-05-27 2      -none- list
## 2018-05-28 2      -none- list
## 2018-05-29 2      -none- list
## 2018-05-30 2      -none- list
## 2018-05-31 2      -none- list
## 2018-06-01 2      -none- list
## 2018-06-02 2      -none- list
## 2018-06-03 2      -none- list
## 2018-06-04 2      -none- list
## 2018-06-05 2      -none- list
## 2018-06-06 2      -none- list
## 2018-06-07 2      -none- list
## 2018-06-08 2      -none- list
## 2018-06-09 2      -none- list
## 2018-06-10 2      -none- list
## 2018-06-11 2      -none- list
## 2018-06-12 2      -none- list
## 2018-06-13 2      -none- list
## 2018-06-14 2      -none- list
## 2018-06-15 2      -none- list
## 2018-06-16 2      -none- list
## 2018-06-17 2      -none- list
## 2018-06-18 2      -none- list
## 2018-06-19 2      -none- list
## 2018-06-20 2      -none- list
## 2018-06-21 2      -none- list
## 2018-06-22 2      -none- list
## 2018-06-23 2      -none- list
## 2018-06-24 2      -none- list
## 2018-06-25 2      -none- list
## 2018-06-26 2      -none- list
## 2018-06-27 2      -none- list
## 2018-06-28 2      -none- list
## 2018-06-29 2      -none- list
## 2018-06-30 2      -none- list
## 2018-07-01 2      -none- list
## 2018-07-02 2      -none- list
## 2018-07-03 2      -none- list
## 2018-07-04 2      -none- list
## 2018-07-05 2      -none- list
## 2018-07-06 2      -none- list
## 2018-07-07 2      -none- list
## 2018-07-08 2      -none- list
## 2018-07-09 2      -none- list
## 2018-07-10 2      -none- list
## 2018-07-11 2      -none- list
## 2018-07-12 2      -none- list
## 2018-07-13 2      -none- list
## 2018-07-14 2      -none- list
## 2018-07-15 2      -none- list
## 2018-07-16 2      -none- list
## 2018-07-17 2      -none- list
## 2018-07-18 2      -none- list
## 2018-07-19 2      -none- list
## 2018-07-20 2      -none- list
## 2018-07-21 2      -none- list
## 2018-07-22 2      -none- list
## 2018-07-23 2      -none- list
## 2018-07-24 2      -none- list
## 2018-07-25 2      -none- list
## 2018-07-26 2      -none- list
## 2018-07-27 2      -none- list
## 2018-07-28 2      -none- list
## 2018-07-29 2      -none- list
## 2018-07-30 2      -none- list
## 2018-07-31 2      -none- list
## 2018-08-01 2      -none- list
## 2018-08-02 2      -none- list
## 2018-08-03 2      -none- list
## 2018-08-04 2      -none- list
## 2018-08-05 2      -none- list
## 2018-08-06 2      -none- list
## 2018-08-07 2      -none- list
## 2018-08-08 2      -none- list
## 2018-08-09 2      -none- list
## 2018-08-10 2      -none- list
## 2018-08-11 2      -none- list
## 2018-08-12 2      -none- list
## 2018-08-13 2      -none- list
## 2018-08-14 2      -none- list
## 2018-08-15 2      -none- list
## 2018-08-16 2      -none- list
## 2018-08-17 2      -none- list
## 2018-08-18 2      -none- list
## 2018-08-19 2      -none- list
## 2018-08-20 2      -none- list
## 2018-08-21 2      -none- list
## 2018-08-22 2      -none- list
## 2018-08-23 2      -none- list
## 2018-08-24 2      -none- list
## 2018-08-25 2      -none- list
## 2018-08-26 2      -none- list
## 2018-08-27 2      -none- list
## 2018-08-28 2      -none- list
## 2018-08-29 2      -none- list
## 2018-08-30 2      -none- list
## 2018-08-31 2      -none- list
## 2018-09-01 2      -none- list
## 2018-09-02 2      -none- list
## 2018-09-03 2      -none- list
## 2018-09-04 2      -none- list
## 2018-09-05 2      -none- list
## 2018-09-06 2      -none- list
## 2018-09-07 2      -none- list
## 2018-09-08 2      -none- list
## 2018-09-09 2      -none- list
## 2018-09-10 2      -none- list
## 2018-09-11 2      -none- list
## 2018-09-12 2      -none- list
## 2018-09-13 2      -none- list
## 2018-09-14 2      -none- list
## 2018-09-15 2      -none- list
## 2018-09-16 2      -none- list
## 2018-09-17 2      -none- list
## 2018-09-18 2      -none- list
## 2018-09-19 2      -none- list
## 2018-09-20 2      -none- list
## 2018-09-21 2      -none- list
## 2018-09-22 2      -none- list
## 2018-09-23 2      -none- list
## 2018-09-24 2      -none- list
## 2018-09-25 2      -none- list
## 2018-09-26 2      -none- list
## 2018-09-27 2      -none- list
## 2018-09-28 2      -none- list
## 2018-09-29 2      -none- list
## 2018-09-30 2      -none- list
## 2018-10-01 2      -none- list
## 2018-10-02 2      -none- list
## 2018-10-03 2      -none- list
## 2018-10-04 2      -none- list
## 2018-10-05 2      -none- list
## 2018-10-06 2      -none- list
## 2018-10-07 2      -none- list
## 2018-10-08 2      -none- list
## 2018-10-09 2      -none- list
## 2018-10-10 2      -none- list
## 2018-10-11 2      -none- list
## 2018-10-12 2      -none- list
## 2018-10-13 2      -none- list
## 2018-10-14 2      -none- list
## 2018-10-15 2      -none- list
## 2018-10-16 2      -none- list
## 2018-10-17 2      -none- list
## 2018-10-18 2      -none- list
## 2018-10-19 2      -none- list
## 2018-10-20 2      -none- list
## 2018-10-21 2      -none- list
## 2018-10-22 2      -none- list
## 2018-10-23 2      -none- list
## 2018-10-24 2      -none- list
## 2018-10-25 2      -none- list
## 2018-10-26 2      -none- list
## 2018-10-27 2      -none- list
## 2018-10-28 2      -none- list
## 2018-10-29 2      -none- list
## 2018-10-30 2      -none- list
## 2018-10-31 2      -none- list
## 2018-11-01 2      -none- list
## 2018-11-02 2      -none- list
## 2018-11-03 2      -none- list
## 2018-11-04 2      -none- list
## 2018-11-05 2      -none- list
## 2018-11-06 2      -none- list
## 2018-11-07 2      -none- list
## 2018-11-08 2      -none- list
## 2018-11-09 2      -none- list
## 2018-11-10 2      -none- list
## 2018-11-11 2      -none- list
## 2018-11-12 2      -none- list
## 2018-11-13 2      -none- list
## 2018-11-14 2      -none- list
## 2018-11-15 2      -none- list
## 2018-11-16 2      -none- list
## 2018-11-17 2      -none- list
## 2018-11-18 2      -none- list
## 2018-11-19 2      -none- list
## 2018-11-20 2      -none- list
## 2018-11-21 2      -none- list
## 2018-11-22 2      -none- list
## 2018-11-23 2      -none- list
## 2018-11-24 2      -none- list
## 2018-11-25 2      -none- list
## 2018-11-26 2      -none- list
## 2018-11-27 2      -none- list
## 2018-11-28 2      -none- list
## 2018-11-29 2      -none- list
## 2018-11-30 2      -none- list
## 2018-12-01 2      -none- list
## 2018-12-02 2      -none- list
## 2018-12-03 2      -none- list
## 2018-12-04 2      -none- list
## 2018-12-05 2      -none- list
## 2018-12-06 2      -none- list
## 2018-12-07 2      -none- list
## 2018-12-08 2      -none- list
## 2018-12-09 2      -none- list
## 2018-12-10 2      -none- list
## 2018-12-11 2      -none- list
## 2018-12-12 2      -none- list
## 2018-12-13 2      -none- list
## 2018-12-14 2      -none- list
## 2018-12-15 2      -none- list
## 2018-12-16 2      -none- list
## 2018-12-17 2      -none- list
## 2018-12-18 2      -none- list
## 2018-12-19 2      -none- list
## 2018-12-20 2      -none- list
## 2018-12-21 2      -none- list
## 2018-12-22 2      -none- list
## 2018-12-23 2      -none- list
## 2018-12-24 2      -none- list
## 2018-12-25 2      -none- list
## 2018-12-26 2      -none- list
## 2018-12-27 2      -none- list
## 2018-12-28 2      -none- list
## 2018-12-29 2      -none- list
## 2018-12-30 2      -none- list
## 2018-12-31 2      -none- list
## 2019-01-01 2      -none- list
## 2019-01-02 2      -none- list
## 2019-01-03 2      -none- list
## 2019-01-04 2      -none- list
## 2019-01-05 2      -none- list
## 2019-01-06 2      -none- list
## 2019-01-07 2      -none- list
## 2019-01-08 2      -none- list
## 2019-01-09 2      -none- list
## 2019-01-10 2      -none- list
## 2019-01-11 2      -none- list
## 2019-01-12 2      -none- list
## 2019-01-13 2      -none- list
## 2019-01-14 2      -none- list
## 2019-01-15 2      -none- list
## 2019-01-16 2      -none- list
## 2019-01-17 2      -none- list
## 2019-01-18 2      -none- list
## 2019-01-19 2      -none- list
## 2019-01-20 2      -none- list
## 2019-01-21 2      -none- list
## 2019-01-22 2      -none- list
## 2019-01-23 2      -none- list
## 2019-01-24 2      -none- list
## 2019-01-25 2      -none- list
## 2019-01-26 2      -none- list
## 2019-01-27 2      -none- list
## 2019-01-28 2      -none- list
## 2019-01-29 2      -none- list
## 2019-01-30 2      -none- list
## 2019-01-31 2      -none- list
## 2019-02-01 2      -none- list
## 2019-02-02 2      -none- list
## 2019-02-03 2      -none- list
## 2019-02-04 2      -none- list
## 2019-02-05 2      -none- list
## 2019-02-06 2      -none- list
## 2019-02-07 2      -none- list
## 2019-02-08 2      -none- list
## 2019-02-09 2      -none- list
## 2019-02-10 2      -none- list
## 2019-02-11 2      -none- list
## 2019-02-12 2      -none- list
## 2019-02-13 2      -none- list
## 2019-02-14 2      -none- list
## 2019-02-15 2      -none- list
## 2019-02-16 2      -none- list
## 2019-02-17 2      -none- list
## 2019-02-18 2      -none- list
## 2019-02-19 2      -none- list
## 2019-02-20 2      -none- list
## 2019-02-21 2      -none- list
## 2019-02-22 2      -none- list
## 2019-02-23 2      -none- list
## 2019-02-24 2      -none- list
## 2019-02-25 2      -none- list
## 2019-02-26 2      -none- list
## 2019-02-27 2      -none- list
## 2019-02-28 2      -none- list
## 2019-03-01 2      -none- list
## 2019-03-02 2      -none- list
## 2019-03-03 2      -none- list
## 2019-03-04 2      -none- list
## 2019-03-05 2      -none- list
## 2019-03-06 2      -none- list
## 2019-03-07 2      -none- list
## 2019-03-08 2      -none- list
## 2019-03-09 2      -none- list
## 2019-03-10 2      -none- list
## 2019-03-11 2      -none- list
## 2019-03-12 2      -none- list
## 2019-03-13 2      -none- list
## 2019-03-14 2      -none- list
## 2019-03-15 2      -none- list
## 2019-03-16 2      -none- list
## 2019-03-17 2      -none- list
## 2019-03-18 2      -none- list
## 2019-03-19 2      -none- list
## 2019-03-20 2      -none- list
## 2019-03-21 2      -none- list
## 2019-03-22 2      -none- list
## 2019-03-23 2      -none- list
## 2019-03-24 2      -none- list
## 2019-03-25 2      -none- list
## 2019-03-26 2      -none- list
## 2019-03-27 2      -none- list
## 2019-03-28 2      -none- list
## 2019-03-29 2      -none- list
## 2019-03-30 2      -none- list
## 2019-03-31 2      -none- list
## 2019-04-01 2      -none- list
## 2019-04-02 2      -none- list
## 2019-04-03 2      -none- list
## 2019-04-04 2      -none- list
## 2019-04-05 2      -none- list
## 2019-04-06 2      -none- list
## 2019-04-07 2      -none- list
## 2019-04-08 2      -none- list
## 2019-04-09 2      -none- list
## 2019-04-10 2      -none- list
## 2019-04-11 2      -none- list
## 2019-04-12 2      -none- list
## 2019-04-13 2      -none- list
## 2019-04-14 2      -none- list
## 2019-04-15 2      -none- list
## 2019-04-16 2      -none- list
## 2019-04-17 2      -none- list
## 2019-04-18 2      -none- list
## 2019-04-19 2      -none- list
## 2019-04-20 2      -none- list
## 2019-04-21 2      -none- list
## 2019-04-22 2      -none- list
## 2019-04-23 2      -none- list
## 2019-04-24 2      -none- list
## 2019-04-25 2      -none- list
## 2019-04-26 2      -none- list
## 2019-04-27 2      -none- list
## 2019-04-28 2      -none- list
## 2019-04-29 2      -none- list
## 2019-04-30 2      -none- list
## 2019-05-01 2      -none- list
## 2019-05-02 2      -none- list
## 2019-05-03 2      -none- list
## 2019-05-04 2      -none- list
## 2019-05-05 2      -none- list
## 2019-05-06 2      -none- list
## 2019-05-07 2      -none- list
## 2019-05-08 2      -none- list
## 2019-05-09 2      -none- list
## 2019-05-10 2      -none- list
## 2019-05-11 2      -none- list
## 2019-05-12 2      -none- list
## 2019-05-13 2      -none- list
## 2019-05-14 2      -none- list
## 2019-05-15 2      -none- list
## 2019-05-16 2      -none- list
## 2019-05-17 2      -none- list
## 2019-05-18 2      -none- list
## 2019-05-19 2      -none- list
## 2019-05-20 2      -none- list
## 2019-05-21 2      -none- list
## 2019-05-22 2      -none- list
## 2019-05-23 2      -none- list
## 2019-05-24 2      -none- list
## 2019-05-25 2      -none- list
## 2019-05-26 2      -none- list
## 2019-05-27 2      -none- list
## 2019-05-28 2      -none- list
## 2019-05-29 2      -none- list
## 2019-05-30 2      -none- list
## 2019-05-31 2      -none- list
## 2019-06-01 2      -none- list
## 2019-06-02 2      -none- list
## 2019-06-03 2      -none- list
## 2019-06-04 2      -none- list
## 2019-06-05 2      -none- list
## 2019-06-06 2      -none- list
## 2019-06-07 2      -none- list
## 2019-06-08 2      -none- list
## 2019-06-09 2      -none- list
## 2019-06-10 2      -none- list
## 2019-06-11 2      -none- list
## 2019-06-12 2      -none- list
## 2019-06-13 2      -none- list
## 2019-06-14 2      -none- list
## 2019-06-15 2      -none- list
## 2019-06-16 2      -none- list
## 2019-06-17 2      -none- list
## 2019-06-18 2      -none- list
## 2019-06-19 2      -none- list
## 2019-06-20 2      -none- list
## 2019-06-21 2      -none- list
## 2019-06-22 2      -none- list
## 2019-06-23 2      -none- list
## 2019-06-24 2      -none- list
## 2019-06-25 2      -none- list
## 2019-06-26 2      -none- list
## 2019-06-27 2      -none- list
## 2019-06-28 2      -none- list
## 2019-06-29 2      -none- list
## 2019-06-30 2      -none- list
## 2019-07-01 2      -none- list
## 2019-07-02 2      -none- list
## 2019-07-03 2      -none- list
## 2019-07-04 2      -none- list
## 2019-07-05 2      -none- list
## 2019-07-06 2      -none- list
## 2019-07-07 2      -none- list
## 2019-07-08 2      -none- list
## 2019-07-09 2      -none- list
## 2019-07-10 2      -none- list
## 2019-07-11 2      -none- list
## 2019-07-12 2      -none- list
## 2019-07-13 2      -none- list
## 2019-07-14 2      -none- list
## 2019-07-15 2      -none- list
## 2019-07-16 2      -none- list
## 2019-07-17 2      -none- list
## 2019-07-18 2      -none- list
## 2019-07-19 2      -none- list
## 2019-07-20 2      -none- list
## 2019-07-21 2      -none- list
## 2019-07-22 2      -none- list
## 2019-07-23 2      -none- list
## 2019-07-24 2      -none- list
## 2019-07-25 2      -none- list
## 2019-07-26 2      -none- list
## 2019-07-27 2      -none- list
## 2019-07-28 2      -none- list
## 2019-07-29 2      -none- list
## 2019-07-30 2      -none- list
## 2019-07-31 2      -none- list
## 2019-08-01 2      -none- list
## 2019-08-02 2      -none- list
## 2019-08-03 2      -none- list
## 2019-08-04 2      -none- list
## 2019-08-05 2      -none- list
## 2019-08-06 2      -none- list
## 2019-08-07 2      -none- list
## 2019-08-08 2      -none- list
## 2019-08-09 2      -none- list
## 2019-08-10 2      -none- list
## 2019-08-11 2      -none- list
## 2019-08-12 2      -none- list
## 2019-08-13 2      -none- list
## 2019-08-14 2      -none- list
## 2019-08-15 2      -none- list
## 2019-08-16 2      -none- list
## 2019-08-17 2      -none- list
## 2019-08-18 2      -none- list
## 2019-08-19 2      -none- list
## 2019-08-20 2      -none- list
## 2019-08-21 2      -none- list
## 2019-08-22 2      -none- list
## 2019-08-23 2      -none- list
## 2019-08-24 2      -none- list
## 2019-08-25 2      -none- list
## 2019-08-26 2      -none- list
## 2019-08-27 2      -none- list
## 2019-08-28 2      -none- list
## 2019-08-29 2      -none- list
## 2019-08-30 2      -none- list
## 2019-08-31 2      -none- list
## 2019-09-01 2      -none- list
## 2019-09-02 2      -none- list
## 2019-09-03 2      -none- list
## 2019-09-04 2      -none- list
## 2019-09-05 2      -none- list
## 2019-09-06 2      -none- list
## 2019-09-07 2      -none- list
## 2019-09-08 2      -none- list
## 2019-09-09 2      -none- list
## 2019-09-10 2      -none- list
## 2019-09-11 2      -none- list
## 2019-09-12 2      -none- list
## 2019-09-13 2      -none- list
## 2019-09-14 2      -none- list
## 2019-09-15 2      -none- list
## 2019-09-16 2      -none- list
## 2019-09-17 2      -none- list
## 2019-09-18 2      -none- list
## 2019-09-19 2      -none- list
## 2019-09-20 2      -none- list
## 2019-09-21 2      -none- list
## 2019-09-22 2      -none- list
## 2019-09-23 2      -none- list
## 2019-09-24 2      -none- list
## 2019-09-25 2      -none- list
## 2019-09-26 2      -none- list
## 2019-09-27 2      -none- list
## 2019-09-28 2      -none- list
## 2019-09-29 2      -none- list
## 2019-09-30 2      -none- list
## 2019-10-01 2      -none- list
## 2019-10-02 2      -none- list
## 2019-10-03 2      -none- list
## 2019-10-04 2      -none- list
## 2019-10-05 2      -none- list
## 2019-10-06 2      -none- list
## 2019-10-07 2      -none- list
## 2019-10-08 2      -none- list
## 2019-10-09 2      -none- list
## 2019-10-10 2      -none- list
## 2019-10-11 2      -none- list
## 2019-10-12 2      -none- list
## 2019-10-13 2      -none- list
## 2019-10-14 2      -none- list
## 2019-10-15 2      -none- list
## 2019-10-16 2      -none- list
## 2019-10-17 2      -none- list
## 2019-10-18 2      -none- list
## 2019-10-19 2      -none- list
## 2019-10-20 2      -none- list
## 2019-10-21 2      -none- list
## 2019-10-22 2      -none- list
## 2019-10-23 2      -none- list
## 2019-10-24 2      -none- list
## 2019-10-25 2      -none- list
## 2019-10-26 2      -none- list
## 2019-10-27 2      -none- list
## 2019-10-28 2      -none- list
## 2019-10-29 2      -none- list
## 2019-10-30 2      -none- list
## 2019-10-31 2      -none- list
## 2019-11-01 2      -none- list
## 2019-11-02 2      -none- list
## 2019-11-03 2      -none- list
## 2019-11-04 2      -none- list
## 2019-11-05 2      -none- list
## 2019-11-06 2      -none- list
## 2019-11-07 2      -none- list

# In this section of code, I will visualize the weekly composites of the Camp Fire data and the buffer data. This was mostly an exploration of how different weeks looked and what would be appropriate to put into the final visualization. 


example_week_4 <- names(camp_weekly_rasters)[2]
plot(camp_weekly_rasters[[example_week_4]],
     main = paste("Weekly Composite:", example_week_4))

example_week_3 <- names(camp_weekly_rasters)[28]
plot(camp_weekly_rasters[[example_week_3]],
     main = paste("Weekly Composite:", example_week_3))

example_week <- names(camp_weekly_rasters)[31]
plot(camp_weekly_rasters[[example_week]],
     main = paste("Weekly Composite:", example_week))

rasters_to_plot <- c(
  camp_weekly_rasters[[example_week_4]],
  camp_weekly_rasters[[example_week_3]],
  camp_weekly_rasters[[example_week]]
)

# Plot in a 3 x 1 layout
plot(rasters_to_plot,
     main = c(paste("Weekly Composite:", example_week_4),
              paste("Weekly Composite:", example_week_3),
              paste("Weekly Composite:", example_week)),
     nc = 1)

# Here I create buffer composites, just like above.

example_week_5 <- names(cbuff_weekly_rasters)[2]
plot(cbuff_weekly_rasters[[example_week_5]],
     main = paste("Weekly Composite:", example_week_5))

example_week_2 <- names(cbuff_weekly_rasters)[28]
plot(cbuff_weekly_rasters[[example_week_2]],
     main = paste("Weekly Composite:", example_week_2))

example_week_6 <- names(cbuff_weekly_rasters)[31]
plot(cbuff_weekly_rasters[[example_week_6]],
     main = paste("Weekly Composite:", example_week_6))

rasters_to_plot_2 <- c(
  cbuff_weekly_rasters[[example_week_5]],
  cbuff_weekly_rasters[[example_week_2]],
  cbuff_weekly_rasters[[example_week_6]]
)

# Plot in a 3 x 1 layout
plot(rasters_to_plot_2,
     main = c(paste("Weekly Composite:", example_week_4),
              paste("Weekly Composite:", example_week_3),
              paste("Weekly Composite:", example_week_6)),
     nc = 1)